#!/usr/bin/perl
$var = $ARGV[0];
open IN, "<$var";

$var =~ s/\./_/g;

print "static const char $var\[\] =\n";

while(<IN>) {
	$line = $_;
	chomp $line;
	$line =~ s/\"/\\\"/g;
	if (/<\/interface>/) {
		print "\"$line\";\n";	
	} else {
		print "\"$line\"\n";	
	}
}
close IN;
